(find-file-visit-truename): Fix safe-local-variable value.

diff --git a/lisp/files.el b/lisp/files.el
index 5be738bd452786abbbc1cc233fc522c98851265f..706b810fb0b6ba41c6e2a506f41866f20ac6de8b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -162,7 +162,7 @@ The truename of a file is found by chasing all links
 both at the file level and at the levels of the containing directories."
   :type 'boolean
   :group 'find-file)
-(put 'find-file-visit-truename 'safe-local-variable 'boolean)
+(put 'find-file-visit-truename 'safe-local-variable 'booleanp)
 
 (defcustom revert-without-query nil
   "Specify which files should be reverted without query.